1000 ' ###################################list
1010 ' PATTERNS    ED DAVIS 1-2-82
1020 ' Comments welcome
1030 ' but BE  KIND!
1040 ' Burlington (8-446)-2091
1050 '
1060 ' ###################################
1070 DEFINT M:COMMON MENU
1080 KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:M%=0
1090 LOCATE 10,1:PRINT "<<-  IF THIS PRINTING IS NOT IN THE  ->>"
1100 LOCATE 11,1:PRINT "   CENTER OF THE SCREEN PRESS  'M' TO
1110 LOCATE 12,1:PRINT "   MOVE THE PICTURE TO THE RIGHT, ANY
1120 LOCATE 13,1:PRINT "    OTHER KEY TO GO TO THE PROGRAM.
1130 K$=INKEY$:IF K$="" GOTO 1130
1140 IF K$="M" OR K$="m" THEN OUT 980,2: OUT 981,43:M%=1:GOTO 1160
1150 M%=0
1160 CLS:SCREEN 0,1:COLOR 15,0,0
1170 COLOR 23 :LOCATE 2,13:PRINT"PATTERNS"
1180 LOCATE 3,13:PRINT"E.DAVIS
1190 COLOR  4,7,0:LOCATE 6,2:PRINT"Please select one of the following:
1200 LOCATE 8,9: PRINT"1- WALLPAPER (NICE!)
1210 LOCATE 9,9:PRINT"2- WAVES
1240 LOCATE 22,9:PRINT "Q- TO QUIT PROGRAM
1250 LOCATE 23,9:PRINT "M- TO MOVE SCREEN"
1260 LOCATE 4,16
1270 K$=INKEY$:IF K$="" GOTO 1270
1280 IF K$="1" THEN GOSUB 1350
1290 IF K$="2" THEN GOSUB 1410
1300 IF K$="3" THEN GOSUB 1460
1310 IF K$="4" THEN GOTO 1510
1320 IF K$="Q" OR K$="q" THEN CLS:CHAIN "MENU",1000
1330 IF K$="M" OR K$="m" THEN GOTO 1080
1340 GOTO 1160
1350 CLS :REM BEGINNING OF PATTERN PGMS E.DAVIS 1-2-82
1360 SCREEN 1,0:COLOR 0,1:IF M%=1 THEN OUT 980,2:OUT 981,43
1370 FOR I=0 TO 300:C=C+1:C=C-(3*INT(C/3)):IF C>3 THEN C=0
1380 LINE (I,0)-(300-I,191),C:NEXT
1390 FOR I=0 TO 191:C=C+1:C=C-(3*INT(C/3)):IF C>3 THEN C=0
1400 LINE (0,191-I)-(300,I),C:NEXT I:GOSUB 1770:GOTO 1350
1410 CLS ' WAVES
1420 SCREEN 1,0:COLOR 0,1:IF M%=1 THEN OUT 980,2:OUT 981,43
1430  C=3:LC=0:T#=18.8495559#
1440 FOR X=0 TO T# STEP T#/279:LINE (140,96)-(X*14.8,60*SIN(X)+96),C
1450 NEXT :GOSUB 1770:GOTO 1410
1460 CLS' ALPHA PARTICLES
1470 SCREEN 1,0:COLOR 1,0:IF M%=1 THEN OUT 980,2:OUT 981,43
1770 IN$=INKEY$:IF IN$=CHR$(27) THEN GOTO 1150 ELSE RETURN
63222 (((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
9090 LOCATE YY+11,53:PRINT"PERSONAL COMPUTER"
9100 RETURN
59999 GOTO 59999
60000 ' PROGRAM TO SWITCH BETWEEN MONO AND COLOR DISPLAY
60005 DEF SEG=0:IF (PEEK(&H410) AND &H30) = &H30 THEN DSPMODE = 1 ELSE DSPMODE = 2
60010 ADAPTER = 0:DEF SEG = &HB000:POKE 0,63:IF PEEK(0) = 63 THEN ADAPTER = ADAPTER OR 1
60015 DEF SEG = &HB800:POKE 0,63:IF PEEK(0) = 63 THEN ADAPTER = ADAPTER OR 2
60020 DEF SEG
60025 IF ADAPTER <>3 THEN BEEP:PRINT"Sorry--other display isn't installed!!":GOSUB 60080:RETURN
60030 ON DSPMODE GOSUB 60035,60060:RETURN
60035 REM switch to color/graphics adapter
60040 KEY OFF:CLS:LOCATE 10,15:PRINT"using other screen--PRESS the A key to get back here!":LOCATE ,,0
60045 DEF SEG = 0:POKE &H410,(PEEK (&H410) AND &HCF) OR &H10:DEF SEG
60050 SCREEN 1,0:SCREEN 0,1:COLOR 1,0:WIDTH 40:COLOR 7,0
60055 LOCATE ,,1,6,7:RETURN
60060 REM switch to monochrome adapter
60065 KEY OFF:CLS:LOCATE 9,5:PRINT"Using other screen.":LOCATE 10,5:PRINT"PRESS the A key to get back here!":LOCATE ,,0
60070 DEF SEG = 0:POKE &H410,(PEEK(&H410) OR &H30):DEF SEG
60075 SCREEN 0:WIDTH 80:LOCATE ,,1,12,13:RETURN
60080 FOR N = 1 TO 3000:NEXT:RETURN:'DELAY
